home *** CD-ROM | disk | FTP | other *** search
/ Workbench Add-On / Workbench Add-On - Volume 1.iso / DiskUtil / Misc / BTNTape / Install < prev    next >
Text File  |  1995-11-24  |  3KB  |  105 lines
  1. (if (= @language "deutsch")
  2.     (
  3.         (SET Intro  "Wilkommen zum Installer-Script für BTN-Tape")
  4.         (SET PHandler "Kopieren des BTN-Handlers")
  5.         (SET TapeMon  "Es existiert ein Programm namens TapeMon, dass zum Anzeigen von Aktivitäten des Bandlaufwerks dient. Soll dieses Programm kopiert werden ?")
  6.         (SET TapeMonPlace "Wohin soll TapeMon hinkopiert werden ?")
  7.         (SET Editle "Jetzt müssen sie selbst den Mountlist-Eintrag auf ihr Bandlaufwerk konfigurieren")
  8.         (SET WasNoch    "Die Installation ist nun beendet. Um ihr Bandlaufwerk nun in das System einzubinden müssen sie \n   MOUNT TAPE: from devs:mountlist.btn\n eingeben")
  9.         (SET MT "Es existiert ein ARexx-Script mit dem sie Kommandos an ihr Bandlaufwerk schicken können. Soll diese kopiert werden ?")
  10.         (SET MTPlace "Wohin soll das ARexx Script hinkopiet werden ?")
  11.     )
  12. )
  13.  
  14. (if (= @language "english")
  15.     (
  16.         (SET Intro  "Welcome to the installer-script for BTN-Tape")
  17.         (SET PHandler "Copying the BTN-handler")
  18.         (SET TapeMon "There is a program called TapeMon, which shows you the activities of you tape-device. Do you want to copy it ?")
  19.         (SET TapeMonPlace "Where do you want to place TapeMon ?")
  20.         (SET Editle "Now you have to edit the mountlist entry")
  21.         (SET WasNoch    "The installation has now finished. To use the tape-drive you have to mount it with the command \n   MOUNT TAPE: from devs:mountlist.btn")
  22.         (SET MT "There is an ARexx script that allows you to send commands to your tape-drive. Do you want to copy it ?")
  23.         (SET MTPlace "Where should be placed the ARexx-script ?")
  24.     )
  25. )
  26.  
  27. (MESSAGE Intro)
  28.  
  29.  
  30. (COPYLIB
  31.     (SOURCE ":diskutil/misc/BTNTape/btn-handler")
  32.     (DEST   "l:")
  33.     (INFOS)
  34.     (CONFIRM)
  35.     (PROMPT PHandler)
  36.     (HELP "")
  37. )
  38.  
  39. (IF
  40.     (ASKBOOL
  41.         (PROMPT TapeMon)
  42.         (HELP   "")
  43.     )
  44.     (
  45.         (SET MonDir
  46.             (ASKDIR
  47.                 (PROMPT TapeMonPlace)
  48.                 (HELP "")
  49.                 (DEFAULT    "sys:")
  50.             )
  51.         )
  52.  
  53.         (COPYFILES
  54.             (SOURCE ":DiskUtil/Misc/BTNTape/tapemon")
  55.             (DEST   MonDir)
  56.             (INFOS)
  57.         )
  58.     )
  59. )
  60.  
  61. (IF
  62.     (ASKBOOL
  63.         (PROMPT MT)
  64.         (HELP   "")
  65.     )
  66.     (
  67.         (SET MTDir
  68.             (ASKDIR
  69.                 (PROMPT MTPlace)
  70.                 (HELP "")
  71.                 (DEFAULT    "sys:")
  72.             )
  73.         )
  74.  
  75.         (COPYFILES
  76.             (SOURCE ":DiskUtil/Misc/BTNTape/tape.rexx")
  77.             (DEST   MTDir)
  78.             (INFOS)
  79.         )
  80.     )
  81. )
  82.  
  83. (MESSAGE Editle)
  84.  
  85.  
  86. (if (EXISTS "devs:mountlist.btn")
  87.     (
  88.         (COPYFILES
  89.             (SOURCE "devs:mountlist.btn")
  90.             (DEST   "devs:mountlist.btn.old")
  91.         )
  92.     )
  93. )
  94.  
  95. (COPYFILES
  96.     (SOURCE ":DiskUtil/Misc/BTNTape/mountlist")
  97.     (DEST   "devs:")
  98.     (NEWNAME "mountlist.btn")
  99. )
  100. (RUN (CAT "ed devs:mountlist.btn"))
  101.  
  102. (MESSAGE WasNoch)
  103.  
  104.  
  105.